﻿Imports System.Data.OleDb
Public Class topcontributor
    Inherits System.Web.UI.Page
    Public Emailadd As String = ""
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            
                Dim objBl = New BL()
                ''Dim objDal = New DL()
            Emailadd = Request.QueryString("Email").ToString
                Dim dbconn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.MapPath("/App_Data/KitchenCompition.mdb"))
            Dim strSelect As String = "select * from reciepe where Email='" & Request.QueryString("Email").ToString & "'"
                gvRecipe.DataSource = objBl.GetDataAccess(strSelect, dbconn)
                gvRecipe.DataBind()


        Catch ex As Exception
            Response.Redirect("Login.aspx")
        End Try

    End Sub

End Class